home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
jock.zip
/
TOTSRC11.ZIP
/
EXTFAST.PAS
next >
Wrap
Pascal/Delphi Source File
|
1993-05-04
|
1KB
|
57 lines
Unit ExtFast;
{Illustrates how you can replace the Toolkit screen writing routines. In
this case, the object MonoWriteOBJ intercepts all color attributes and
replaces them with White-on-Black.}
{$I TOTFLAGS.INC}
INTERFACE
uses DOS, CRT, totFAST;
TYPE
MonoWriteOBJ = object (WriteOBJ)
constructor Init;
procedure WriteAT(X,Y,attr:byte;Str:string); VIRTUAL;
procedure ChangeAttr(X,Y,Att:byte;Len:word); VIRTUAL;
procedure Clear(Att:byte;Ch:char); VIRTUAL;
destructor Done; VIRTUAL;
end; {MonoWriteOBJ}
IMPLEMENTATION
constructor MonoWriteOBJ.Init;
{}
begin
WriteOBJ.Init;
TextColor(white);
Textbackground(black);
end; {MonoWriteOBJ.Init}
procedure MonoWriteOBJ.WriteAT(X,Y,attr:byte;Str:string);
{}
begin
WriteOBJ.WriteAT(X,Y,white,Str);
end; {MonoWriteOBJ.WriteAT}
procedure MonoWriteOBJ.ChangeAttr(X,Y,Att:byte;Len:word);
{}
begin
WriteOBJ.ChangeAttr(X,Y,white,Len);
end; {MonoWriteOBJ.ChangeAttr}
procedure MonoWriteOBJ.Clear(Att:byte;Ch:char);
{}
begin
WriteOBJ.Clear(white,Ch);
end; {MonoWriteOBJ.Clear}
destructor MonoWriteOBJ.Done;
{}
begin
WriteOBJ.Done;
end; {MonoWriteOBJ.Done}
end.